@@ -14,20 +14,27 @@
 not_platforms 'tcl'
 
 # Download source
 download_src
 
-# Build package
+# Extract source
 (
 	rm -rf build
 	mkdir -p "${PLATDIR}" >/dev/null 2>/dev/null
 	mkdir build
 
 	cd build/ || exit 1
 
 	gzip -dc "../${SRC}" | tar -xf -
-	cd "${BUILDDIR}" || exit 1
+) || exit 1
+
+# Apply patches
+apply_patches
+
+# Build package
+(
+	cd "build/${BUILDDIR}" || exit 1
 
 	TCL_PLAT_BUILD_DIR="$(basename "${TCLBUILDDIR}")"
 
 	cd "${TCL_PLAT_BUILD_DIR}" || exit 1