diff --git a/extra/processing/processing.factor b/extra/processing/processing.factor
index 0f21634dc8..e089b15e7e 100644
--- a/extra/processing/processing.factor
+++ b/extra/processing/processing.factor
@@ -28,7 +28,9 @@ IN: processing
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: at-fraction ( seq fraction -- val ) over length 1- * nth-at ;
+! : at-fraction ( seq fraction -- val ) over length 1- * nth-at ;
+
+: at-fraction ( seq fraction -- val ) over length 1- * at ;
 
 : at-fraction-of ( fraction seq -- val ) swap at-fraction ;