diff --git a/extra/strings/lib/lib.factor b/extra/strings/lib/lib.factor
index 719881b768..d0a34c8d28 100644
--- a/extra/strings/lib/lib.factor
+++ b/extra/strings/lib/lib.factor
@@ -4,11 +4,3 @@ IN: strings.lib
 ! : char>digit ( c -- i ) 48 - ;
 
 ! : string>digits ( s -- seq ) [ char>digit ] { } map-as ;
-
-! : >Upper ( str -- str )
-!     dup empty? [
-!         unclip ch>upper 1string swap append
-!     ] unless ;
-
-! : >Upper-dashes ( str -- str )
-!     "-" split [ >Upper ] map "-" join ;
diff --git a/extra/unicode/case/case.factor b/extra/unicode/case/case.factor
index ee9e2a0381..f244192a32 100755
--- a/extra/unicode/case/case.factor
+++ b/extra/unicode/case/case.factor
@@ -1,6 +1,6 @@
 USING: kernel unicode.data sequences sequences.next namespaces
 assocs.lib unicode.normalize math unicode.categories combinators
-assocs ;
+assocs strings splitting ;
 IN: unicode.case
 
 : ch>lower ( ch -- lower ) simple-lower at-default ;
@@ -110,3 +110,12 @@ SYMBOL: locale ! Just casing locale, or overall?
     dup >title = ;
 : case-fold? ( string -- ? )
     dup >case-fold = ;
+
+
+: >Upper ( str -- str ) 
+    dup empty? [
+        unclip ch>upper 1string swap append
+    ] unless ;
+
+: >Upper-dashes ( str -- str )
+    "-" split [ >Upper ] map "-" join ;