Index: openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl	27 Feb 2005 20:04:28 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl	27 Feb 2005 22:45:40 -0000	1.4
@@ -55,7 +55,7 @@
     set startdir [acs_root_dir]/packages
     
     aa_log "Checks starting from $startdir"
-
+    set count 0
     #inspect every tcl file in the directory tree starting with $startdir
     foreach file [ad_find_all_files -check_file_func ::tcl_p $startdir] { 
 
@@ -64,9 +64,12 @@
         close $fp
 
 	if {![regexp {/packages/acs-tcl/tcl/test/acs-tcl-test-procs\.tcl$} $file match]} {
-	    aa_true "$file should not contain '@returns'.  @returns is probably a typo of @return" [expr [string first @returns $data] == -1]
+	    if {[string first @returns $data] < 0} { 
+                aa_log_result fail "$file should not contain '@returns'.  @returns is probably a typo of @return" 
+            }
 	}
     }
+    aa_log "Checked $count tcl files"
 }
 
 aa_register_case -cats {smoke production_safe} files__check_info_files {