Index: openacs-4/packages/assessment/lib/results-messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-messages.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/lib/results-messages.tcl	26 Sep 2006 00:22:44 -0000	1.2
+++ openacs-4/packages/assessment/lib/results-messages.tcl	15 May 2007 20:14:16 -0000	1.3
@@ -3,8 +3,9 @@
 
 set format "[lc_get d_fmt], [lc_get t_fmt]"
 
-db_multirow -extend {user_url} results result_changes {
+db_multirow -unclobber -extend {session_url user_url} results result_changes {
 } {
     set creation_date [lc_time_fmt $creation_date $format]
     set user_url [acs_community_member_url -user_id $creation_user]
+    set session_url [export_vars -base results-session {session_id}]
 }