Index: openacs-4/packages/acs-templating/tcl/debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/debug-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/debug-procs.tcl	12 Apr 2013 16:12:57 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/debug-procs.tcl	7 Aug 2017 23:48:01 -0000	1.7
@@ -1,22 +1,35 @@
+ad_library {
+    Debug procs
+}
 
 ad_proc -public watch_files {} {
     tracks each file by interpreter to ensure that it is up-to-date
 } {
-  
-  set files [list ats/paginator-procs.tcl ats/query-procs.tcl \
-                  ats/debug-procs.tcl ats/filter-procs.tcl ats/util-procs.tcl]
+    set files {
+        ats/paginator-procs.tcl
+        ats/query-procs.tcl
+        ats/debug-procs.tcl
+        ats/filter-procs.tcl
+        ats/util-procs.tcl
+    }
 
-  foreach file $files { 
+    foreach file $files { 
 
-    set file $::acs::tcllib/$file
+        set file $::acs::tcllib/$file
 
-    set proc_name [info commands ::template::mtimes::tcl::$file]
-    set mtime [file mtime $file]
+        set proc_name [info commands ::template::mtimes::tcl::$file]
+        set mtime [file mtime $file]
+        
+        if { $proc_name eq {} || $mtime != [$proc_name] } {
 
-    if { $proc_name eq {} || $mtime != [$proc_name] } {
-
-      uplevel #0 "source $file"
-      proc ::template::mtimes::tcl::$file {} "return $mtime"
+            uplevel #0 "source $file"
+            proc ::template::mtimes::tcl::$file {} "return $mtime"
+        }
     }
-  }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: