Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.63 -r1.64
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	22 Jul 2002 21:51:47 -0000	1.63
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	24 Jul 2002 03:53:20 -0000	1.64
@@ -355,6 +355,9 @@
 
         if {[empty_string_p $id]} {
             set type dotlrn_class_instance
+	    # aks: this next line is necessary 
+	    # for dotlrn_class_instances, don't remove it!
+	    set id [db_string select {} -default ""]
         } 
 
         return $id