Index: openacs-4/packages/assessment/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.tcl,v
diff -u -N -r1.21 -r1.21.2.1
--- openacs-4/packages/assessment/www/index.tcl	29 Sep 2013 13:40:40 -0000	1.21
+++ openacs-4/packages/assessment/www/index.tcl	18 Aug 2014 20:25:03 -0000	1.21.2.1
@@ -36,8 +36,8 @@
 template::multirow create assessments assessment_id title description assessment_url
 db_foreach open_asssessments {} {
     set title [as::assessment::title -title $title]
-    if {([empty_string_p $start_time] || $start_time <= $cur_time) && ([empty_string_p $end_time] || $end_time >= $cur_time)} {
-	if {[empty_string_p $password]} {
+    if {($start_time eq "" || $start_time <= $cur_time) && ($end_time eq "" || $end_time >= $cur_time)} {
+	if {$password eq ""} {
 	    set assessment_url [export_vars -base "instructions" {assessment_id}]
 	} else {
 	    set assessment_url [export_vars -base "assessment-password" {assessment_id}]