diff --git a/src/ikarus.boot b/src/ikarus.boot
index 599feb8..9634267 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.core.ss b/src/ikarus.core.ss
index 0ebb444..cf05581 100644
--- a/src/ikarus.core.ss
+++ b/src/ikarus.core.ss
@@ -1380,11 +1380,6 @@
 
 (primitive-set! 'list (lambda x x))
 
-(primitive-set! 'uuid
-   (lambda ()
-     (let ([s (make-string 16)])
-       (or (foreign-call "ik_uuid" s)
-           (error 'uuid "failed!")))))
 
 (primitive-set! 'gensym->unique-string
   (lambda (x)
diff --git a/src/ikarus.strings.ss b/src/ikarus.strings.ss
index 9fdc648..15a65cb 100644
--- a/src/ikarus.strings.ss
+++ b/src/ikarus.strings.ss
@@ -1,11 +1,11 @@
 
 (library (ikarus strings)
   (export string-length string-ref string-set! make-string string->list string=?
-          string-append substring string list->string)
+          string-append substring string list->string uuid)
   (import 
     (except (ikarus) string-length string-ref string-set! make-string
             string->list string=? string-append substring string
-            list->string)
+            list->string uuid)
     (only (scheme) 
           $fx+ $fxsub1 $fxadd1 $char= $car $cdr
           $fxzero? $fx= $fx<= $fx< $fx>= $fx-
@@ -228,4 +228,10 @@
           (let ([s ($make-string n)])
             (fill-strings s s* 0))))))
 
+
+  (define uuid
+    (lambda ()
+      (let ([s (make-string 16)])
+        (or (foreign-call "ik_uuid" s)
+            (error 'uuid "failed!")))))
   )