diff --git a/lang_tests/inst_var_at_put_superclass/test.som b/lang_tests/inst_var_at_put_superclass/test.som
new file mode 100644
index 00000000..b06117ef
--- /dev/null
+++ b/lang_tests/inst_var_at_put_superclass/test.som
@@ -0,0 +1,25 @@
+"
+VM:
+  status: success
+  stdout:
+    1
+    2
+    4
+    3
+"
+
+test = test_super (
+    | d c |
+
+    run = (
+        self instVarAt: 1 put: 1.
+        self instVarAt: 2 put: 2.
+        self instVarAt: 3 put: 3.
+        self instVarAt: 4 put: 4.
+
+        a println.
+        b println.
+        c println.
+        d println.
+    )
+)
diff --git a/lang_tests/inst_var_at_put_superclass/test_super.som b/lang_tests/inst_var_at_put_superclass/test_super.som
new file mode 100644
index 00000000..7b3eada6
--- /dev/null
+++ b/lang_tests/inst_var_at_put_superclass/test_super.som
@@ -0,0 +1,10 @@
+test_super = (
+    | a b |
+
+    f = (
+        (self instVarAt: 1) println.
+        (self instVarAt: 2) println.
+        (self instVarAt: 3) println.
+        (self instVarAt: 4) println.
+    )
+)