diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index f63ce44c71..b0293a8759 100644
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -134,6 +134,20 @@ PRIVATE>
 
 : pprint-cell ( obj -- ) [ pprint ] with-cell ;
 
+: simple-table. ( values -- )
+    standard-table-style [
+        [
+            [
+                [
+                    dup string?
+                    [ [ write ] with-cell ]
+                    [ pprint-cell ]
+                    if
+                ] each
+            ] with-row
+        ] each
+    ] tabular-output ;
+
 GENERIC: see ( defspec -- )
 
 : comment. ( string -- )
diff --git a/basis/tools/time/time.factor b/basis/tools/time/time.factor
index 3078f40e1a..6873d68316 100644
--- a/basis/tools/time/time.factor
+++ b/basis/tools/time/time.factor
@@ -7,20 +7,6 @@ IN: tools.time
 : benchmark ( quot -- runtime )
     millis >r call millis r> - ; inline
 
-: simple-table. ( values -- )
-    standard-table-style [
-        [
-            [
-                [
-                    dup string?
-                    [ [ write ] with-cell ]
-                    [ pprint-cell ]
-                    if
-                ] each
-            ] with-row
-        ] each
-    ] tabular-output ;
-
 : time. ( data -- )
     unclip
     "==== RUNNING TIME" print nl pprint " ms" print nl