Resolved merge.

[factor.git] / extra / dns / dns.factor

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index 6d81f2a14b8a9b7d1911dda037c92c0d71fe3afe..f16664fb0272c19cba3296da89bf3f73c2567f15 100644 (file)
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -495,7 +495,7 @@ ERROR: name-error name ;
 : fully-qualified ( name -- name )
     {
       { [ dup empty?         ] [ "." append ] }
-      { [ dup peek CHAR: . = ] [            ] }
+      { [ dup last CHAR: . = ] [            ] }
       { [ t                  ] [ "." append ] }
     }
   cond ;