Index: openacs-4/packages/assessment/www/assessment-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment-password.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/assessment-password.tcl	29 Oct 2008 13:55:08 -0000	1.4
+++ openacs-4/packages/assessment/www/assessment-password.tcl	27 Oct 2014 16:40:58 -0000	1.5
@@ -5,7 +5,7 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-02-20
 } -query {
-    assessment_id:integer,notnull
+    assessment_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     page_title:onevalue
@@ -26,7 +26,7 @@
 
 set assessment_rev_id $assessment_data(assessment_rev_id)
 set errors [as::assessment::check_session_conditions -assessment_id $assessment_rev_id -subject_id $user_id -password $assessment_data(password)]
-if {![empty_string_p $errors]} {
+if {$errors ne ""} {
     ad_return_complaint 1 $errors
     ad_script_abort
 }