X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/e2f0a2c79c36baab81e9d944f666f1f9c83aa216..69ef6636c043cef13fe40bb225469bf1cea2688a:/quotas.sml

diff --git a/quotas.sml b/quotas.sml
index a667846..84515b5 100644
--- a/quotas.sml
+++ b/quotas.sml
@@ -43,7 +43,7 @@ struct
 			else
 			    (eatUntilBlankLine ();
 			     loop acc)
-		      | _ => acc
+		      | _ => loop acc
 
 	    val _ = TextIO.inputLine inf
 	in