diff --git a/extra/math/analysis/analysis.factor b/extra/math/analysis/analysis.factor
index 2973d3d3f2..a41281d779 100644
--- a/extra/math/analysis/analysis.factor
+++ b/extra/math/analysis/analysis.factor
@@ -113,7 +113,7 @@ PRIVATE>
 ! http://www.csse.monash.edu.au/~lloyd/tildeAlgDS/Numerical/Stirling/
 
 : stirling-fact ( n -- fact )
-  [ pi 2 * * sqrt ]
-  [ dup e / swap ^ ]
-  [ 12 * recip 1 + ]
-  tri * * ;
+    [ pi 2 * * sqrt ]
+    [ dup e / swap ^ ]
+    [ 12 * recip 1 + ]
+    tri * * ;