Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	23 Oct 2002 12:38:38 -0000	1.44
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	12 Nov 2002 08:44:05 -0000	1.45
@@ -153,7 +153,7 @@
         if {![count_class_instances -class_key $class_key] == 0} {
             set msg_subst_list [list subject [parameter::get -localize -parameter classes_pretty_name] \
                                      class_instances [parameter::get -localize -parameter class_instances_pretty_plural]]
-            ad_return_complaint 1 [_ [ad_conn locale] dotlrn.class_may_not_be_deleted "" $msg_subst_list]
+            ad_return_complaint 1 [_ dotlrn.class_may_not_be_deleted $msg_subst_list]
 
            ad_script_abort
         }