diff --git a/forth/base.fs b/forth/base.fs
index f7cf338a..b07c9dc9 100644
--- a/forth/base.fs
+++ b/forth/base.fs
@@ -144,12 +144,9 @@ here latest >xt 1+ (to)
 : .s depth begin ?dup while
 dup pick . 1- repeat ;
 
-: abort"
-postpone if
-postpone rvs
-postpone ."
-postpone cr
-postpone abort
+: (abort") rvs type cr abort ;
+: abort" postpone if
+postpone s" postpone (abort")
 postpone then ; immediate
 
 ( linked list. each element contains
@@ -173,7 +170,7 @@ marker ---modules---
 \ hides private words
 hide 1mi hide 2mi hide 23mi hide 3mi
 hide holdp hide latestxt
-hide dodoes
+hide dodoes hide (abort")
 
 .( labels..) include labels
 .( doloop..) include doloop