Index: openacs-4/packages/dotlrn-homework/www/version-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/version-delete.tcl,v
diff -u -r1.4 -r1.4.12.1
--- openacs-4/packages/dotlrn-homework/www/version-delete.tcl	13 Jan 2005 13:57:29 -0000	1.4
+++ openacs-4/packages/dotlrn-homework/www/version-delete.tcl	18 Aug 2014 21:53:43 -0000	1.4.12.1
@@ -9,7 +9,7 @@
     {confirmed_p "f"}
 } -validate {
     valid_version -requires {version_id} {
-	if ![fs_version_p $version_id] {
+	if {![fs_version_p $version_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_spec_version]"
 	}
     }
@@ -29,7 +29,7 @@
 from   cr_revisions
 where  revision_id = :version_id"
 
-if {[string equal $confirmed_p "t"]} {
+if {$confirmed_p == "t"} {
     # they have confirmed that they want to delete the version
 
     db_transaction {