diff --git a/.gitattributes b/.gitattributes
index 5ea7361e5c..3179867981 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6123,6 +6123,7 @@ tests/webtbs/tw3973.pp svneol=native#text/plain
 tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/tw4010.pp svneol=native#text/plain
+tests/webtbs/tw4013.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain
diff --git a/rtl/inc/variant.inc b/rtl/inc/variant.inc
index a81bb989ac..048504cddf 100644
--- a/rtl/inc/variant.inc
+++ b/rtl/inc/variant.inc
@@ -16,27 +16,35 @@
 
 var
    variantmanager : tvariantmanager;
-
-procedure invalidvariantop;
-  begin
-     HandleErrorFrame(221,get_frame);
-  end;
-
-
-procedure invalidvariantopnovariants;
+   
+procedure printmissingvariantunit;
   begin
     writeln(stderr);
     writeln(stderr,'Program needs probably the variants unit.');
     writeln(stderr,'Include the variants unit in your uses statements');
     writeln(stderr,'as one of the first units.');
     writeln(stderr);
+  end;
+  
+  
+procedure invalidvariantop;
+  begin
+     printmissingvariantunit;
+     HandleErrorFrame(221,get_frame);
+  end;
+
+
+procedure invalidvariantopnovariants;
+  begin
+    printmissingvariantunit;
     HandleErrorFrame(221,get_frame);
   end;
   
   
 procedure vardisperror;
   begin
-     HandleErrorFrame(222,get_frame);
+    printmissingvariantunit;
+    HandleErrorFrame(222,get_frame);
   end;
 
 
diff --git a/tests/webtbs/tw4013.pp b/tests/webtbs/tw4013.pp
new file mode 100644
index 0000000000..cd34b1721a
--- /dev/null
+++ b/tests/webtbs/tw4013.pp
@@ -0,0 +1,13 @@
+{ Source provided for Free Pascal Bug Report 4013 }
+{ Submitted by "Miguel Garcia-Blanco" on  2005-05-25 }
+{ e-mail: mgbonline@hotmail.com }
+PROGRAM Test;
+
+uses
+  variants;
+
+BEGIN
+
+    writeln( 2.0**5.0 );
+
+END.