diff --git a/bin/t2ctl b/bin/t2ctl
index 602fe1c..a5f0d19 100755
--- a/bin/t2ctl
+++ b/bin/t2ctl
@@ -205,6 +205,10 @@ clock2_fontsize(){
 	L2_FONT="${FL2[@]::${#FL2[@]}-1}" # this is crazy... all array elements but last
 	sd "^time2_font.*$" "time2_font = ${L2_FONT} ${1}" ${T2CONFFILE}
 }
+clockcolor(){
+	read CLR OPA <<< "$(grep "clock_font_color" ${T2CONFFILE} | cut -d'=' -f2)"
+	sd "clock_font_color.*$" "clock_font_color = ${1} $OPA" ${T2CONFFILE}
+}
 
 panel_background_id(){
 	sd "panel_background_id.*$" "panel_background_id = ${1}" ${T2COLORFILE}
@@ -254,6 +258,7 @@ case "$1" in
     reset) reset "$2" ;;
     clock1_fontsize) clock1_fontsize "$2";;
     clock2_fontsize) clock2_fontsize "$2";;
+    clockcolor) clockcolor "$2";;
     panel_background_id)panel_background_id "$2";;
     button_background_id)button_background_id "$2";;
     task_background_id)task_background_id "$2";;