Index: unicode/src/test/test-oracle.lisp
===================================================================
--- unicode/src/test/test-oracle.lisp	(revision unicode,6)
+++ unicode/src/test/test-oracle.lisp	(revision unicode,7)
@@ -144,5 +144,5 @@
                                 '(:string :in) 
                                 '(:string :out))))
-    (let ((str "lölkÀlkÀölkÀlhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
+    (let ((str "lolkalkxylkzlhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
       (assert (equal str (first (exec-prepared-command stm str))))
       (free-statement stm)))