diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test
index 813b78ff9..93ac2399d 100644
--- a/test-suite/tests/strings.test
+++ b/test-suite/tests/strings.test
@@ -1,7 +1,7 @@
 ;;;; strings.test --- test suite for Guile's string functions    -*- scheme -*-
 ;;;; Jim Blandy <jimb@red-bean.com> --- August 1999
 ;;;;
-;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2001, 2005 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -81,6 +81,14 @@
     exception:immutable-string
     (string-set! "abc" 1 #\space)))
 
+(with-test-prefix "string-split"
+
+  ;; in guile 1.6.7 and earlier, character >=128 wasn't matched in the string
+  (pass-if "char 255"
+    (equal? '("a" "b")
+	    (string-split (string #\a (integer->char 255) #\b)
+			  (integer->char 255)))))
+
 (with-test-prefix "substring-move!"
 
   (pass-if-exception "substring-move! checks start and end correctly"