--- loncom/interface/lonsearchcat.pm	2001/03/15 19:27:12	1.26
+++ loncom/interface/lonsearchcat.pm	2001/03/15 19:32:31	1.27
@@ -432,7 +432,7 @@ END
 
 # ---------------------------------------------------- see if a field is filled
 sub filled {
-    return /\S/;
+    return ($_=~/\S/);
 }
 
 # --------------------------------------------------- Performing a basic search