Index: evaluatedlg.pp
===================================================================
--- evaluatedlg.pp	(revision 37471)
+++ evaluatedlg.pp	(working copy)
@@ -142,7 +142,13 @@
   else
     tbModify.Enabled := False;
   FreeAndNil(DBGType);
-  txtResult.Lines.Text := R;
+  if (s<>'') and (S[1]='>') then
+    begin
+    txtResult.Lines.Text := txtResult.Lines.Text + LineEnding + S + LineEnding + R;
+    txtResult.SelStart:=length(txtResult.Lines.Text);
+    end
+  else
+    txtResult.Lines.Text := R;
 end;
 
 procedure TEvaluateDlg.cmbExpressionChange(Sender: TObject);
Index: gdbmidebugger.pp
===================================================================
--- gdbmidebugger.pp	(revision 37471)
+++ gdbmidebugger.pp	(working copy)
@@ -12232,6 +12232,19 @@
         end;
       else // wdfDefault
         begin
+          if AnExpression[1]='>' then  // raw cli commands
+            begin
+            delete(AnExpression,1,1);
+            Result := ExecuteCommand('%s', [AnExpression], R);
+            Result := Result and (R.State <> dsError);
+            if (not Result) then begin
+              ParseLastError;
+              exit;
+            end;
+            FValidity := ddsValid;
+            FTextValue:=StringReplace(StringReplace(R.Values,'\t','   ',[rfReplaceAll]),'\n',LineEnding,[rfReplaceAll]);
+            exit;
+            end;
           Result := False;
           Assert(FTypeInfo = nil, 'Type info must be nil');
           i := 0;