Index: unicode/src/test/test-oracle.lisp
===================================================================
--- unicode/src/test/test-oracle.lisp	(revision unicode,5)
+++ unicode/src/test/test-oracle.lisp	(revision unicode,6)
@@ -144,5 +144,5 @@
                                 '(:string :in) 
                                 '(:string :out))))
-    (let ((str "lölkälkäölkälhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
+    (let ((str "lölkÀlkÀölkÀlhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
       (assert (equal str (first (exec-prepared-command stm str))))
       (free-statement stm)))
Index: unicode/src/test/test-sql-server.lisp
===================================================================
--- unicode/src/test/test-sql-server.lisp	(revision unicode,5)
+++ unicode/src/test/test-sql-server.lisp	(revision unicode,6)
@@ -245,5 +245,5 @@
                             '(:string :in) 
                             '(:unicode-string :in))
-    (let* ((strings '("hjgkhgkzt65646&%2" "nnvfdsfsfz6tztß0#="))
+    (let* ((strings '("hjgkhgkzt65646&%2" "nnvfdsfsfz6tztß0#="))
            (res (exec-prepared-query stm (first strings) (second strings))))
       (assert (equal res (list strings))))))