diff --git a/bbstool.scm b/bbstool.scm
index f2a90bb..a6ec1b6 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -176,14 +176,22 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   ((gencards)
    (apply cards-export MB (-fname-)))
   ((problems)
-   (let loop ((mb MB))
-     (when (not (null? mb))
-       (when (or (member-has-problems? (car mb))
-		 (member-has-highlights? (car mb)))
-	 (newline)
-	 (print-member-table (car mb))
-	 (print-member-source (car mb)))
-       (loop (cdr mb)))))
+   (let ((num (let loop ((mb MB)
+			 (num 0))
+		(if (null? mb)
+		    num
+		    (loop (cdr mb)
+			  (if (or (member-has-problems? (car mb))
+				  (member-has-highlights? (car mb)))
+			      (let ()
+				(newline)
+				(print-member-table (car mb))
+				(print-member-source (car mb))
+				(add1 num))
+			      num))))))
+     (when (= num 0)
+       (newline)
+       (print "No problems found."))))
   ((fees)
    (newline)
    (print-members-fees-table MB))