diff --git a/tests/tbs/tbs0239.pp b/tests/tbs/tbs0239.pp
index 7b1c1a0dae..07d70034b7 100644
--- a/tests/tbs/tbs0239.pp
+++ b/tests/tbs/tbs0239.pp
@@ -1,5 +1,9 @@
 {$mode delphi}
-   uses sysutils;
+  uses 
+{$ifdef go32v2}
+    dpmiexcp,
+{$endif go32v2}
+    sysutils;
    type
      ttest=class
      end;