diff --git a/pen-core.el b/pen-core.el
index ea1b0ceaf..b91e12be5 100644
--- a/pen-core.el
+++ b/pen-core.el
@@ -11,7 +11,19 @@
     (beginning-of-line)
     (point)))
 
+(defun clean-repl (&optional input)
+  (interactive (list (pen-preceding-text-line)))
+
+  (let ((ret
+         (snc "clean-repl" input)))
+    (if (interactive-p)
+        (xc ret)
+      ret)))
+(defalias 'clean-prompt 'clean-repl)
+
 (defun pen-preceding-text-line ()
+  (cond
+   (major-mode-p 'term-mode))
   (str (buffer-substring (point) (max 1 (beginning-of-line-point)))))