Index: openacs-4/packages/assessment/www/asm-admin/one-a.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.tcl,v
diff -u -N -r1.13 -r1.13.6.1
--- openacs-4/packages/assessment/www/asm-admin/one-a.tcl	7 Oct 2007 22:36:54 -0000	1.13
+++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl	18 Aug 2014 20:25:07 -0000	1.13.6.1
@@ -49,7 +49,7 @@
 set results_url [export_vars -base results-users {assessment_id}]
 set export_url [export_vars -base results-export {assessment_id}]
 
-if { [exists_and_not_null asm_instance]} {
+if { ([info exists asm_instance] && $asm_instance ne "")} {
     set reg_url "[apm_package_url_from_id $asm_instance]admin"
 } else {
     set reg_url "../admin"
@@ -84,7 +84,7 @@
 			    -url [ad_return_url] ]
 
 db_multirow -extend { section_url } sections assessment_sections {} {
-    if {[empty_string_p $points]} {
+    if {$points eq ""} {
 	set points 0
     }
     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]