diff --git a/extra/graphviz/graphviz-tests.factor b/extra/graphviz/graphviz-tests.factor
index ebf1cfbfff..9b72fff581 100644
--- a/extra/graphviz/graphviz-tests.factor
+++ b/extra/graphviz/graphviz-tests.factor
@@ -42,7 +42,7 @@ SYMBOLS: supported-layouts supported-formats ;
 : graphviz-output-appears-to-exist? ( base -- ? )
     "." directory-files [ swap head? ] with count 1 = ;
 
-: next! ( seq -- elt ) [ first ] [ 1 rotate! ] bi ;
+: next! ( seq -- elt ) [ first ] [ 1 rotate-headwards! ] bi ;
 
 :: smoke-test ( graph -- pass? )
     supported-formats get-global next! :> -T