diff --git a/Scripts/swap2ram b/Scripts/swap2ram
new file mode 100755
index 00000000..55c757e6
--- /dev/null
+++ b/Scripts/swap2ram
@@ -0,0 +1,12 @@
+#!/bin/sh
+
+mem=$(LC_ALL=C free  | awk '/Mem:/ {print $4}')
+swap=$(LC_ALL=C free | awk '/Swap:/ {print $3}')
+
+if [ $mem -lt $swap ]; then
+    echo "ERROR: not enough RAM to write swap back, nothing done" >&2
+    exit 1
+fi
+
+swapoff -a && swapon -a
+exit 0