Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	4 Sep 2003 16:32:43 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	8 Sep 2003 09:47:21 -0000	1.37
@@ -2378,14 +2378,11 @@
 
     ns_mutex unlock [nsv_get ad_procs mutex]
 
-    if { $debug == "t" } {
-	ns_log "Notice" "Running scheduled proc $proc..."
-    }
+    ns_log Debug "Running scheduled proc $proc..."
+
     # Actually run the procedure.
     eval [concat [list $proc] $args]
-    if { $debug == "t" } {
-	ns_log "Notice" "Done running scheduled proc $proc."
-    }
+    ns_log Debug "Done running scheduled proc $proc."
 }
 
 # Initialize NSVs for ad_schedule_proc.
@@ -2398,7 +2395,7 @@
     {
 	-thread f
 	-once f
-	-debug t
+	-debug f
 	-all_servers f
         -schedule_proc ""
     }