diff --git a/tests/tbs/tb0428.pp b/tests/tbs/tb0428.pp
new file mode 100644
index 0000000000..46d484a2f1
--- /dev/null
+++ b/tests/tbs/tb0428.pp
@@ -0,0 +1,34 @@
+{ Testing smallset + normset }
+{ with respect to normset + smallset }
+
+
+type
+  charset=set of char;
+
+  var
+     tr,tr2    : charset;
+
+
+  procedure test(const k:charset);
+
+    begin
+       tr:=[#7..#10]+k;
+       tr2:=k+[#7..#10];
+     if (tr<>tr2) then
+       begin
+         Writeln('Bug in set handling');
+         halt(1);
+       end;
+    end;
+
+  begin
+     Test([#20..#32]);
+     if not(#32 in tr) or ([#33..#255]*tr <> []) or
+        (tr<>[#7..#10,#20..#32]) or
+        (tr<>tr2) then
+       begin
+         Writeln('Bug in set handling');
+         halt(1);
+       end;
+
+  end.