Index: nano.tcl
==================================================================
--- nano.tcl
+++ nano.tcl
@@ -4102,13 +4102,13 @@
 			if {$use_tclreadline} {
 				proc ::tclreadline::prompt1 {} $prompt
 				::tclreadline::Loop
 			} else {
 				fconfigure stdout -blocking false
-				puts -nonewline "> "
+				puts -nonewline [apply [list {} $prompt]]
 				flush stdout
-				fileevent stdin readable [list apply {{} {
+				fileevent stdin readable [list apply {{prompt} {
 					uplevel #0 {
 						gets stdin __line__
 						if {$__line__ eq "" && [eof stdin]} {
 							exit 0
 						}
@@ -4120,13 +4120,13 @@
 								puts "$__result__"
 							}
 						}
 					}
 
-					puts -nonewline "> "
+					puts -nonewline [apply [list {} $prompt]]
 					flush stdout
-				}}]
+				}} $prompt]
 
 				vwait forever
 			}
 		}
 		"import" {