diff --git a/Source/uPSRuntime.pas b/Source/uPSRuntime.pas
index d22c6182..24bf94f4 100644
--- a/Source/uPSRuntime.pas
+++ b/Source/uPSRuntime.pas
@@ -3063,16 +3063,22 @@ function TPSExec.LoadData(const s: tbtString): Boolean;
   if not LoadTypes then
   begin
     Clear;
+    if ExEx = erNoError then
+      CMD_Err2(erCustomError, TbtString('Failed to load types'));
     exit;
   end;
   if not LoadProcs then
   begin
     Clear;
+    if ExEx = erNoError then
+      CMD_Err2(erCustomError, TbtString('Failed to load procedures'));
     exit;
   end;
   if not LoadVars then
   begin
     Clear;
+    if ExEx = erNoError then
+      CMD_Err2(erCustomError, TbtString('Failed to load variables'));
     exit;
   end;
   if (HDR.MainProcNo >= FProcs.Count) and (HDR.MainProcNo <> InvalidVal)then begin