Do not display error symbols in member-record.

member-file.scm

@@ -31,6 +31,7 @@
   *member-file-context*
   *member-file-check-syntax*
   *member-default-joined*
+  member-file-error-symbol
   load-member-file
   member-file-tests!
   )

member-record.scm

@@ -49,7 +49,8 @@
 	 dictionary
 	 period
 	 testing
-	 month)
+	 month
+	 member-file)
 
  ;; Prints human-readable information
  (define (print-member-record-info mr)
@@ -73,10 +74,11 @@
 	 (let* ((kv (car sinfo))
 		(k (car kv))
 		(v (cdr kv)))
-	   (print "  " k ":\t"
-		  (if (member k '(student suspend))
-		      (periods->string v)
-		      v))
+	   (when (not (eq? k member-file-error-symbol))
+	     (print "  " k ":\t"
+		    (if (member k '(student suspend))
+			(periods->string v)
+			v)))
 	   (loop (cdr sinfo)))))))
 
  ;; Returns key from the top-level (members-base) record if it exists,