Index: openacs-4/packages/assessment/lib/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/lib/session.tcl	26 Sep 2006 00:22:44 -0000	1.3
+++ openacs-4/packages/assessment/lib/session.tcl	26 Sep 2006 04:08:36 -0000	1.4
@@ -20,7 +20,9 @@
 	ad_return_complaint 1 "Session_id or Assessment_id is required"
     }
     #find the latest session
-    db_1row get_latest_session "" -column_array latest_session
+    if {![db_0or1row get_latest_session "" -column_array latest_session]} {
+	ad_return_complaint 1 "You have not completed this assessment yet."
+    }
     set session_id $latest_session(session_id)
 }