Re-implement reverse to fix obscure problem

core/classes/tuple/tuple-tests.factor

@@ -697,3 +697,7 @@ DEFER: error-y
     <string-reader> "forget-subclass-test" parse-stream
     drop
 ] unit-test
+
+[ ] [
+    "IN: sequences TUPLE: reversed { seq read-only } ;" eval
+] unit-test

core/sequences/sequences.factor

@@ -173,7 +173,12 @@ M: reversed length seq>> length ;
 
 INSTANCE: reversed virtual-sequence
 
-: reverse ( seq -- newseq ) [ <reversed> ] [ like ] bi ;
+: reverse ( seq -- newseq )
+    [
+        dup [ length ] keep new-sequence
+        [ 0 swap copy ] keep
+        [ reverse-here ] keep
+    ] keep like ;
 
 ! A slice of another sequence.
 TUPLE: slice