Index: openacs-4/packages/assessment/www/asm-admin/results-session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-session.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/results-session.tcl	1 Dec 2008 16:57:03 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/results-session.tcl	27 Oct 2014 16:41:03 -0000	1.9
@@ -6,7 +6,7 @@
     @date   2005-02-16
     @cvs-id $Id: 
 } {
-    session_id:integer
+    session_id:naturalnum,notnull
 } -properties {
     context:onevalue
     page_title:onevalue
@@ -53,7 +53,7 @@
     set show_username_p 0
 }
 
-if {[empty_string_p $assessment_data(show_feedback)]} {
+if {$assessment_data(show_feedback) eq ""} {
     set assessment_data(show_feedback) "all"
 }