diff --git a/CHANGELOG.md b/CHANGELOG.md
index 0caceac..fa1483f 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -8,6 +8,7 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/).
 - bugfix: when the floor is already cluttered with stuff, gnomes might fail to lay down an item they just produced
 - bugfix: hospital might get stuck when a patient dies during treatment
 - bugfix: fixed the goal for mood during sparetime acivities
+- bugfix: removed duplicate code section, thus reducing mood loss due to bad sleep quality by 50%
 
 ## [v1.5] - 2024-08-25
 ### Added
diff --git a/Data/Scripts/classes/zwerg/change_z_spare_main.tcl b/Data/Scripts/classes/zwerg/change_z_spare_main.tcl
index 3190d53..b70d883 100644
--- a/Data/Scripts/classes/zwerg/change_z_spare_main.tcl
+++ b/Data/Scripts/classes/zwerg/change_z_spare_main.tcl
@@ -62,3 +62,19 @@ $with
 						}
 						if {[lindex $sparetime_goal 1]>[get_attrib this atr_Mood]+0.01} {
 $end
+
+$start
+$replace
+		if {$civ_state>$funloss_slpquality} {
+			set moodloss [expr {$civ_state-$funloss_slpquality}]
+			sparetime_talkissue_entry "slp" $moodloss 0
+			set moodloss [expr {$moodfactor*$moodloss}]
+			fincr tll_fl_slpquality $moodloss
+			fincr sumloss $moodloss
+		}
+		set funstations 0
+		for {set i 1} {$i<17} {set i [expr {$i<<1}]} {
+$with
+		set funstations 0
+		for {set i 1} {$i<17} {set i [expr {$i<<1}]} {
+$end