diff --git a/atomics.sld b/atomics.sld
new file mode 100644
index 00000000..f26b74fe
--- /dev/null
+++ b/atomics.sld
@@ -0,0 +1,15 @@
+(define-library (atomics)
+  (export
+    atomic:get-fx
+    atomic:fx++
+  )
+  (include-c-header "<ck_pr.h>")
+  (begin
+    ;TODO: needed, unfortunately (define tmp 1)
+    (define-c atomic:fx++
+      "(void *data, int argc, closure _, object k, object num)"
+      " Cyc_check_fixnum(data, num);
+        ck_pr_add_ptr(&num, 2);
+        return_closcall1(data, k, num); ")
+  ))
+