diff --git a/Makefile b/Makefile
index 1c08b0dc57e58d0bd3e57893c44e8939fbf6f6d8..d2fb0882892453e9de3543e8e7820125aa93f431 100644
--- a/Makefile
+++ b/Makefile
@@ -22,7 +22,7 @@ XFILES = avwcpgeom avwmerge avwnvols avwsplit \
 	avwfill_8UI avwfill_8SI avwfill_16UI avwfill_16SI avwfill_32UI avwfill_32SI avwfill_32R avwfill_64R \
 	avwstats avwcomplex avwstats++ avwfft avwmeants avwcheck avwswapdim avwconv avwslice
 
-SCRIPTS = avwval avwchpixdim avwanimate sliceanimate avwsize avwinfo
+SCRIPTS = avwval avwchpixdim avwanimate sliceanimate avwsize avwinfo avwedithd
 
 RUNAVWS = avw2ascii avwmaths avwcc avwroi avwfill avwinterleave
 
diff --git a/fsledithd b/fsledithd
new file mode 100755
index 0000000000000000000000000000000000000000..07095391bdd9e024b10add7b2a9ff502a1f535d6
--- /dev/null
+++ b/fsledithd
@@ -0,0 +1,20 @@
+#!/bin/sh
+
+Usage() {
+    echo ""
+    echo "Usage: avwedithd <input>"
+    echo ""
+    exit
+}
+
+[ "$1" = "" ] && Usage
+
+if [ _$FSLDIR = _ ] ; then
+    FSLDIR=/usr/local/fsl
+    export FSLDIR
+fi
+
+tmpbase=`${FSLDIR}/bin/tmpnam`;
+${FSLDIR}/bin/avwhd -x $1 > ${tmpbase}
+pico ${tmpbase}
+${FSLDIR}/bin/avwcreatehd ${tmpbase} $1