diff --git a/tools/iperl b/tools/iperl
index b72ba64..a44595b 100755
--- a/tools/iperl
+++ b/tools/iperl
@@ -241,8 +241,8 @@ EOT
 # the big one!
 sub main {
     # ugh stupid fucking Term::ReadLine's automatic escapes
-    #my ($prompt1, $prompt2) = (">>>", '..>');
-    my ($prompt1, $prompt2) = ("\001\033[24m\002>>>", "\001\033[24m\002..>");
+    my ($prompt1, $prompt2) = (">>>", '..>');
+    #my ($prompt1, $prompt2) = ("\001\033[24m\002>>>", "\001\033[24m\002..>");
 
     # process the arguments provided; save original @ARGV for use later
     my $quiet;