diff --git a/CONTROL/control b/CONTROL/control
index 5d04842..39005c0 100644
--- a/CONTROL/control
+++ b/CONTROL/control
@@ -1,7 +1,7 @@
 Package: webif
 Priority: optional
 Section: web
-Version: 1.2.4-3
+Version: 1.2.4-4
 Architecture: mipsel
 Maintainer: af123@hummypkg.org.uk
 Depends: webif-channelicons(>=1.1.18),lighttpd(>=1.4.35-2),jim(>=0.76),jim-oo,jim-sqlite3(>=0.76),jim-cgi(>=0.7),jim-binary(>=0.76),service-control(>=2.1),busybox(>=1.20.2-1),lsof(>=4.87),epg(>=1.2.0),hmt(>=2.0.5),ssmtp,anacron,trm(>=1.1),openssl-command,nicesplice,id3v2,file,rsvsync(>=1.0.2),webif-charts(>=1.2-1),stripts(>=1.2.5-3),smartmontools,tmenu(>=1.08),ffmpeg,id3v2,multienv(>=1.6),tcpping(>=1.1),e2fsprogs,wireless-tools(>=29-1),dbupdate,recmon(>=2.0.7)
diff --git a/webif/lib/ts.class b/webif/lib/ts.class
index 74967d7..0689a7b 100644
--- a/webif/lib/ts.class
+++ b/webif/lib/ts.class
@@ -105,6 +105,26 @@ ts method lock {} {
 	return 1
 }
 
+ts method setflag {flag} {
+	set cmd [list /mod/bin/hmt +$flag $file]
+	if {[catch {exec {*}$cmd}]} {
+		throw 20 "Unknown flag."
+	}
+	ladd flags $flag
+	return 1
+
+}
+
+ts method unsetflag {flag} {
+	set cmd [list /mod/bin/hmt -$flag $file]
+	if {[catch {exec {*}$cmd}]} {
+		throw 20 "Unknown flag."
+	}
+	lremove flags $flag
+	return 1
+
+}
+
 ts method set_shrunk {} {
 	set cmd [list /mod/bin/hmt +shrunk $file]
 	exec {*}$cmd