diff --git a/external/mambo/mambo_utils.tcl b/external/mambo/mambo_utils.tcl
index 6de952a18af5..a97bdc42af64 100644
--- a/external/mambo/mambo_utils.tcl
+++ b/external/mambo/mambo_utils.tcl
@@ -4,6 +4,10 @@
 #
 proc p { reg { t 0 } { c 0 } } {
     switch -regexp $reg {
+	^r$ {
+            set val [mysim cpu $c thread $t display gprs]
+            puts "$val"
+	}
         ^r[0-9]+$ {
             regexp "r(\[0-9\]*)" $reg dummy num
             set val [mysim cpu $c thread $t display gpr $num]