--- a/trunk/Toss/Learn/LearnGameTest.ml
+++ b/trunk/Toss/Learn/LearnGameTest.ml
@@ -106,9 +106,9 @@
   (LearnGame.learnFromParties ~win0 ~win1 ~notwon ~wrong) ^ "\n"
 
 let test_learn_game name =
-  assert_equal ~printer:(fun s -> s)
-    (AuxIO.input_file ("./Learn/examples/" ^ name ^ ".toss"))
-    (learn_game "Learn/examples" name)
+  let res = AuxIO.input_file ("./Learn/examples/" ^ name ^ ".toss") in
+  assert_equal ~printer:(fun s -> s) (Aux.normalize_spaces res)
+    (Aux.normalize_spaces (learn_game "Learn/examples" name))
 
 let bigtests = "LearnGame" >::: [
   "Tic-Tac-Toe001" >:: (fun () -> test_learn_game "Tic-Tac-Toe001");