hipku: "Autumn colors" not "Autumn Colors"

diff --git a/extra/hipku/hipku-tests.factor b/extra/hipku/hipku-tests.factor
index 2a0bbba55a79618e304c544f9b42d85c5a5599a6..132107dfe19c4c39b28eb2ae6359accdee432bbb 100644 (file)
--- a/extra/hipku/hipku-tests.factor
+++ b/extra/hipku/hipku-tests.factor
@@ -1,12 +1,12 @@
 
 USING: hipku tools.test ;
 
-{ "The hungry white ape\naches in the ancient canyon.\nAutumn Colors crunch." } [
+{ "The hungry white ape\naches in the ancient canyon.\nAutumn colors crunch." } [
     "127.0.0.1" >hipku
 ] unit-test
 
 { "127.0.0.1" } [
-    "The hungry white ape\naches in the ancient canyon.\nAutumn Colors crunch."
+    "The hungry white ape\naches in the ancient canyon.\nAutumn colors crunch."
     hipku>
 ] unit-test
 

diff --git a/extra/hipku/hipku.factor b/extra/hipku/hipku.factor
index cc90d6fa6eea58c6bb9b36e01378c0605868bd5a..4a5a08172e22eec633a610abe7a56d2d29e12f5f 100644 (file)
--- a/extra/hipku/hipku.factor
+++ b/extra/hipku/hipku.factor
@@ -213,7 +213,7 @@ CONSTANT: ipv6-schema ${
 : encode-hipku ( key schema -- hipku )
     [
         {
-            { Octet [ dup pop >title ] }
+            { Octet [ dup pop unclip ch>upper prefix ] }
             { octet [ dup pop ] }
             { octet. [ dup pop "." append ] }
             [ ]