Index: openacs-4/packages/dotlrn/www/admin/class.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/class.tcl	17 Dec 2001 23:02:56 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/class.tcl	11 Jan 2002 06:33:26 -0000	1.3
@@ -5,14 +5,15 @@
     @creation-date Dec 10, 2001
     @version $Id$
 } -query {
+    {filter "select_current_class_instances"}
 } -properties {
     class_key:onevalue
     pretty_name:onevalue
     instances:multirow
     can_instantiate:onevalue
 }
 
-db_multirow instances select_class_instances {}
+db_multirow instances $filter {}
 
 set can_instantiate [db_string can_instantiate_class {}]