presentations.factor typo fix

diff --git a/library/ui/presentations.factor b/library/ui/presentations.factor
index 4b785ac644bec97273772f8748d0bae6a329f8f8..3710bc4607188c1ccd8c0fa235bf550c7b923f77 100644 (file)
--- a/library/ui/presentations.factor
+++ b/library/ui/presentations.factor
@@ -45,7 +45,7 @@ global [ 100 <vector> commands set ] bind
 : gadget. ( gadget -- )
     gadget swons unit
     "This stream does not support live gadgets"
-    swap write-attr terpri ;
+    swap format terpri ;
 
 [ drop t ] "Prettyprint" [ prettyprint ] define-command
 [ drop t ] "Inspect" [ inspect ] define-command