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.62 -r1.63
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	13 Jul 2002 00:13:09 -0000	1.62
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	22 Jul 2002 21:51:47 -0000	1.63
@@ -355,7 +355,6 @@
 
         if {[empty_string_p $id]} {
             set type dotlrn_class_instance
-            set id [db_string select {}]
         } 
 
         return $id