diff --git a/extra/project-euler/011/011.factor b/extra/project-euler/011/011.factor
index 1b554efa17..f34a185e65 100644
--- a/extra/project-euler/011/011.factor
+++ b/extra/project-euler/011/011.factor
@@ -80,10 +80,10 @@ IN: project-euler.011
         length <iota> [ 0 <repetition> ] map
     ] keep [ <reversed> append ] 2map ;
 
-: diagonal/ ( -- matrix )
+: major-diagonal ( -- matrix ) ! \
     horizontal reverse pad-front pad-back flip ;
 
-: diagonal\ ( -- matrix )
+: minor-diagonal ( -- matrix ) ! /
     horizontal pad-front pad-back flip ;
 
 : max-product ( matrix width -- n )
@@ -94,7 +94,7 @@ PRIVATE>
 
 : euler011 ( -- answer )
     [
-        { [ horizontal ] [ vertical ] [ diagonal/ ] [ diagonal\ ] }
+        { [ horizontal ] [ vertical ] [ minor-diagonal ] [ major-diagonal ] }
         [ call( -- matrix ) 4 max-product , ] each
     ] { } make supremum ;